home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 146
/
Tiger_Disk_146_19xx_Tiger-Crew-Disk_de_Side_A.d64
/
ende -044-
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
43 lines
10 poke53280,.:printchr$(147)
13 forx=49152to49279:ready:pokex,y:next:sys49152:
16 data120,169,51,133,1,160,0,169,0,133,251,169,208,133,252,169,0,133,253,169
19 data32,133,254,160,0,177,251,24,106,145,253,200,177,251,24,106
22 data145,253,200,177,251,145,253,200,177,251,145,253,200,177,251,145,253
25 data200,177,251,24,42,145,253,200,177,251,24,42,145,253,200,177,251,24,42
28 data145,253,200,24,165,251,105,8,133,251,165,252,105,0,133,252,24,165
31 data253,105,8,133,253,165,254,105,0,133,254,165,251,201,248,208
34 data17,165,252,201,223,144,11,169,55,133,1,88,169,24,141,24,208,96,76,23
37 data 192,252
40 gosub97
43 print"[146] [162][162][162][162][162] [162][150][162] [162][150][162] [162][162][162][175][164] [162][162][162][162][162]"
46 print" [150] [150] [223] [150] [150] [150] [150] "
49 print" [150] [184][184] [150] [146][223][223] [150] [150] [150] [150] [184][184]"
52 print" [150] [150] [150][146][223] [150] [150] [150] [150] "
55 print" [150][184][184][184] [150] [146][223] [150] [146][184] [150][162] [150][184][184][184]":goto56
56 forl=4to12step.1 :poke781,l:poke782,31-1:sys59905:next:
58 :print"";:gosub103
61 poke53281,6:print"[146] [158][162][162][162][162][162] [158][162][129][162] [158][162][129][162] [158][162][162][162][175][164] [158][162][162][162][162][162]"
64 print" [158] [129] [158] [129] [223] [158] [129] [158] [129] [158] [129] [158] [129] "
67 print" [158] [129] [184][184] [158] [129] [146][223][223][158] [129] [158] [129] [158] [129] [158] [129] [184][184]"
70 print" [158] [129] [158] [129] [129][146][223][158] [129] [158] [129] [158] [129] [158] [129] "
73 print" [158] [129][184][184][184] [158] [129] [146][223][158] [129] [158] [146][158][184] [129][162] [158] [129][184][184][184]" "
74 [129]l[178]4[164]12[169].1 :[151]781,l:[151]782,31[171]1:[158]59905:[130]:
76 [153]"";:[141]103
79 [151]53281,6:[153]"wait clrnewnewnewnewnew clrnewdefnew clrnewdefnew clrnewnewnewandto clrnewnewnewnewnew"
82 [153]" clr def clr def (NULL) clr def clr def clr def clr def "
85 [153]" clr def frefre clr def wait(NULL)(NULL)clr def clr def clr def clr def frefre"
88 [153]" clr def clr def defwait(NULL)clr def clr def clr def clr def "
91 [153]" clr deffrefrefre clr def wait(NULL)clr def clr waitclrfre defnew clr deffrefrefre" "
94 forz=1to750:next:poke53272,21:
95 forl=4to12step.1:poke781,l:poke782,31-1:sys59905:next:gosub118
97 poke53280,11:poke53281,.:
100 print"[147][151] und nun: [145]":forz=1to100:next
103 fori=54272to54295:pokei,0:next:poke54296,15:
106 poke54295,64:poke54287,12:poke54278,255:poke54276,21:fori=1to1
109 fora=1to5step.1:poke54273,a+9:poke54276,32:poke54273,17+a:poke54286,a*6
112 nexta:nexti:poke54296,.::forz=1to300:next:poke53281,6:
115 poke53280,.:print"[145][145][144][182] [144][181]";:return
118 forz=1to1000:next:
121 poke53281,.:printtab(33)" [151]lukian":forz=1to500:next:
124 sys58253